﻿Public Class Form1
    Public user As String
    Public pass As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        user = TextBox1.Text
        pass = TextBox2.Text
        If user.Trim = "Administrador" And pass.Trim = "123456789" Then
            Me.Visible = False
            Form2.Visible = True
        ElseIf user.Trim = "Empleado" And pass.Trim = "123456" Then
            Me.Visible = False
            Form2.Visible = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class
